<!--#include file="./top.asp"-->

<%
	dim ind_subject
	ind_subject = request.QueryString("ind_subject")
	dim rs_ind_subject, str_ind_subject
	set	rs_ind_subject = server.CreateObject("Adodb.Recordset")
	str_ind_subject = "select * from " & ind_subject & " where grade = '" & request.QueryString("grade") & "'"
	
	rs_ind_subject.open str_ind_subject, conn, 1, 3
	
	for i = 1 to rs_ind_subject.fields.count - 1
		rs_ind_subject.fields(i) = request.Form("rs_ind_subject_" & i)
		response.Write "rs_ind_subject_" & i & " = " & request.form("rs_ind_subject_" & i) & "<br />"
	next
	rs_ind_subject.update
%>

<%%>
</body>
</html>
<%
	rs_ind_subject.close
	set rs_ind_subject = nothing
	conn.close
	set conn = nothing
	response.Redirect("./ind_subject.asp?grade=" & request.QueryString("grade") & "&ind_subject=" & request.QueryString("ind_subject"))
%>